

package TagClient::VarsSend;


#UML_MODELER_BEGIN_PERSONAL_VARS_VarsSend

#UML_MODELER_END_PERSONAL_VARS_VarsSend

use TagClient::View;
use CGI;

use base qw( TagClient::View );



=head1 VARSSEND



=cut


=head1 PUBLIC ATTRIBUTES

=pod 



=cut


=head1 PUBLIC METHODS

=head4 ->new()

   Return : 
	The class instance      

   Description : 
      The constructor

=cut

sub new
{
  my $this = shift;
  my $class = ref($this) || $this; 
  my $self = {
	  _cgi => undef,
  };
  warn "Construtor: Sou o VarsSend\n";
  bless ($self, $class); 
  return $self;
}


=head3 show

   Parameters :
      data : TagServer::iModel : 

   Return : 
      

   Description : 
      Abstract method that shows it.

=cut

sub show
{
  my($self,
     $data, # TagServer::iModel : 
    ) = @_;
  warn "Metodo VarsSend->show\n";
  my $i, $out;
  print $self->cgi->header('text/plain');
  my $ref = $self->model->data;
  my %vars = %$ref;
  foreach $i (keys %vars){
	  #$out .= $i."=".$self->cgi->param($i)."&";
	$out .= $i."=".$vars{$i}."&";
  }
  print $out;
  return $out;
}



=pod 

=head3 url_encode

   Parameters :
      new_Data : % : 

   Return : 
      $

   Description : 
      

=cut

sub url_encode
{
  my($self,
     $new_Data, # % : 
    ) = @_;
#UML_MODELER_BEGIN_PERSONAL_CODE_url_encode
  warn "Metodo VarsSend->url_encode\n";
  return $self->model->data;
#UML_MODELER_END_PERSONAL_CODE_url_encode
}

=head3 Portal->cgi($new_cgi)

   Parameters :
      new_cgi : $ : The gateway interface, of type CGI

   Return : 
      $ : the _cgi attrib 

   Description : 
     The cgi ambient.
     $tela = new CGI;
     $portal = new TagServer::Portal();
     $portal->cgi($tela);

=cut

sub cgi {
   warn "Metodo VarsSend->cgi\n";	
   my $self = shift;
   if (@_) { $self->{_cgi} = shift }
   return $self->{_cgi};
}


=head1 METHODS FOR SUBCLASSING



=cut


=head1 PRIVATE METHODS



=cut






return 1;
